	PRO SIXFIGRATE,filename1,filename2,filename3,filename4,filename5,filename6,figname
; 
;
restore,filename1+'_rec_flux.idl'
t1 = tiempo
r1 = recflux
restore,filename2+'_rec_flux.idl'
t2 = tiempo
r2 = recflux
restore,filename3+'_rec_flux.idl'
t3 = tiempo
r3 = recflux
restore,filename4+'_rec_flux.idl'
t4 = tiempo
r4 = recflux
restore,filename5+'_rec_flux.idl'
t5 = tiempo
r5 = recflux
restore,filename6+'_rec_flux.idl'
t6 = tiempo
r6 = recflux


maxrec = max([max(r1),max(r2),max(r3),max(r4),max(r5),max(r6)])
maxtime = max([max(t1),max(t2),max(t3),max(t4),max(t5),max(t6)])

set_plot,'ps'
device,filename=figname+'.eps',bits_per_pixel=8,/encapsulated,xs=15,ys=12
plot,t1,r1,xtitle='Time',tit='Reconnected Flux',xr=[0,maxtime/4],yr=[0,.04],xsty=1,ysty=1
oplot,t1,r1,psym=4
oplot,[1,0.9*maxrec],psym=4
xyouts,1.1,0.89*maxrec,filename1
oplot,t2,r2
oplot,t2,r2,psym=2
oplot,[1,0.8*maxrec],psym=2
xyouts,1.1,0.79*maxrec,filename2
oplot,t3,r3
oplot,t3,r3,psym=6
oplot,[1,0.7*maxrec],psym=6
xyouts,1.1,0.69*maxrec,filename3
oplot,t4,r4
oplot,t4,r4,psym=5
oplot,[1,0.6*maxrec],psym=5
xyouts,1.1,0.59*maxrec,filename4
oplot,t5,r5
oplot,t5,r5,psym=1
oplot,[1,0.5*maxrec],psym=1
xyouts,1.1,0.49*maxrec,filename5
oplot,t6,r6
oplot,t6,r6,psym=7
oplot,[1,0.4*maxrec],psym=7
xyouts,1.1,0.39*maxrec,filename6


device,/close
set_plot,'x'

end

